home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / NINTH AUG ELEVENTH.mxe < prev    next >
Text File  |  1997-02-05  |  1KB  |  69 lines
  1. /* © Dick Doyle */
  2.  
  3.  
  4. options results                    
  5.  
  6.  
  7.  
  8. MXRADIO "Selected Notes,All Notes"        
  9.  
  10.  
  11. MXREQUEST "NINTH AUG ELEVENTH,DO IT"  
  12. if result == 0 then exit            
  13.  
  14. MXPOINTER "sleepy"                
  15.  
  16. MXVALUE 1                    
  17. if result == 0 then BEGINSCAN 'selected'
  18. else BEGINSCAN 'all'                
  19.  
  20. if result ~= 0 then do forever            
  21.  
  22.   NEXTEVENT                    
  23.   if result == 0 then break
  24.  
  25.   if EVENT.TYPE == 'NOTE' then do        
  26.     newval = EVENT.NUM + 4
  27.     if newval < 0 then newval = newval + 128
  28.     if newval > 127 then newval = newval - 128
  29.     EVENT.NUM = newval
  30.     ADDEVENT
  31.   end
  32.   
  33.    if EVENT.TYPE == 'NOTE' then do        
  34.     newval = EVENT.NUM + 3
  35.     if newval < 0 then newval = newval + 128
  36.     if newval > 127 then newval = newval - 128
  37.     EVENT.NUM = newval
  38.     ADDEVENT
  39.   end
  40.   
  41.    if EVENT.TYPE == 'NOTE' then do        
  42.     newval = EVENT.NUM + 3
  43.     if newval < 0 then newval = newval + 128
  44.     if newval > 127 then newval = newval - 128
  45.     EVENT.NUM = newval
  46.     ADDEVENT
  47.   end
  48.  
  49.    if EVENT.TYPE == 'NOTE' then do        
  50.     newval = EVENT.NUM + 4
  51.     if newval < 0 then newval = newval + 128
  52.     if newval > 127 then newval = newval - 128
  53.     EVENT.NUM = newval
  54.     ADDEVENT
  55.   end
  56.  
  57.    if EVENT.TYPE == 'NOTE' then do        
  58.     newval = EVENT.NUM + 4
  59.  
  60.     if newval < 0 then newval = newval + 128
  61.     if newval > 127 then newval = newval - 128
  62.     EVENT.NUM = newval
  63.     ADDEVENT
  64.   end
  65. end
  66. ENDSCAN                        
  67.  
  68. MXPOINTER "normal"                
  69. exit